Bizde sayfalarımıza hangi tarayıcıyla girildiğini tespit edip CSS sınıfımızda o tarayıcıya özel işlem yapmasını söyleyeceğiz.

• Öncelikle java dosyasını buradan indirip projenize ekleyin.
• Daha sonra "head" tagları arasına aşağıdaki kodu ekleyin.

• geriye CSS dosyamızda bu kütüphaneyi kullanmak kaldı.

  /*baslikDIV adında CSS sınıfımız var. Hiçbirşey belirtilmediği için tarayıcıda bu tanımlamalara göre şlem yapacak.*/
  .baslikDIV
  {
  	text-align: center;
  	font-size:12pt;
  	font-family:Tahoma;
  	line-height:14pt;
  
  }
  /*firefox tarayıcısı için aynısınıf aşağıdaki gibi davranacak.*/
  .win.gecko .baslikDIV
  {
          text-align: left;
  	font-size:10pt;
  	font-family:Arial;
  	line-height:12pt;
  
  
  }
  

Kullanımı yukarıdaki gibidir. .win.geckoyazan yer bizim tarayıcı belirttiğimizi ifade eder. Farklı tarayıcıları için kodları aşağıda bulabilirsiniz.

• win - Microsoft Windows
• linux - Linux (x11 and linux)
• mac - Mac OS
• freebsd - FreeBSD
• ipod - iPod Touch
• iphone - iPhone
• webtv - WebTV
• mobile - J2ME Devices (ex: Opera mini)

Tarayıcı seçimi için (.gecko yazan kısım firefox olduğunu gösterir.);

• ie » Internet Explorer (Tüm versiyonları)
• ie8 » Internet Explorer 8.x
• ie7 » Internet Explorer 7.x
• ie6 » Internet Explorer 6.x
• ie5 » Internet Explorer 5.x
• gecko » Mozilla, Firefox (Tüm versiyonları), Camino
• ff2 » Firefox 2
• ff3 »Firefox 3
• ff3_5 » Firefox 3.5
• opera » Opera (Tüm versiyonları)
• opera8 » Opera 8.x
• opera9 » Opera 9.x
• opera10 » Opera 10.x
• konqueror » Konqueror
• webkit veya safari » Safari, NetNewsWire, OmniWeb, Shiira, Google Chrome
• safari3 » Safari 3.x
• chrome » Google Chrome
• iron » SRWare Iron

Excel'de bir rapor hazırladınız ve bu rapor TL değerleri içeriyor. Peki sizden bu raporun $ yada € 'sunu istediklerinde siz ne yaparsınız?

TL değerlerini KUR'la çarptırıp. $'a yada €'ya çevirirsiniz.

Herşey yolunda peki O raporun sizden €' sunu istediler ozaman hemen gidip € kuruyla çarparsınız.

Bütün bu işlemleri yapan tek bir tuşunuz olsa ve siz sadece kuru girseniz tuşa bassanız raporunuz $ yada € olsa. Ne güzel olurdu dimi.

Şimdi birlikte bunu yapacağız.

Excel örneğimiz aşağıdaki gibi diyelim.

Sırasıyla yapacaklarımız:

• Excel de componentlerin hazırlanışı
• Kodlamaya geçiş
• Kodların test edilmesi.

• Excelde hazırlayacağımız yapı aşağıdaki gibi olacak.

  

  Buradaki componentler;
  4 adet "OptionButton5"
  6 adet "TextBox"
  1 adet "CommandButton"
  

  Yukarıdaki bileşeleri kullanarak yapıyı resimde gördüğümüz gibi hazırlayalım.

• Kodlamamıza geçebiliriz. Aşağıdaki kodları Butonumuzun click olayına yazalım. Gerekli açıklamları kod blogunda görebilirsiniz.

  Private Sub CommandButton1_Click()
  
  'satırlar arasında dönmrk için değişken tanımlıyoruz.
  Dim i As Integer
  
  'bulunduğumuz hücrenin içerisindeki bilgiyi tutmak için
  'değişken tanımlıyoruz. Çünkü bunu kur'la çarpacağız.
  Dim hucreDegeri As Single
  
  
  'TextBox' da bulunan $ ve € kurumuzu
  'tutmak için değişkenlerimizi tanımladık.
  Dim dolarKuru As Single
  Dim euroKuru As Single
  
  'iki kurumuzu yeri geldiğinde tutmasını söyleceğimiz değişkenimiz.
  Dim kur As Single
  
  'hangi sutun için işlem yapılacaksa TextBox'dan alacağımız değişken.
  'A,B,C sütünları gibi
  Dim sutunDegeri As String
  
  'İşlem hangi satırdan başlayacaksa bu değerini tutan değişkenimiz.
  'Bu değeri TextBox'dan alacak
  Dim satirBaslangic As Integer
  
  'Hangi satırda bitiyorsa bu değeri tutan değişkenimiz.
  'Bu değer TextBox'dan alacak
  Dim satirBitis As Integer
  
  'Hangi çalışma sayfasında işlem yapılacaksa
  'Bu bilgiyi tutan değişkenimiz.
  'Hazırladığımız sayfayı istediğimiz excel çalışma sayfasına taşıyarak kolayca işlemlerimizi yapabiliriz.
  Dim calismaSayfasi As String
  
  
  'değerlerimizi textBox'lardan alıyoruzç
  dolarKuru = TextBox1.Text
  euroKuru = TextBox2.Text
  sutunDegeri = TextBox3.Text
  satirBaslangic = TextBox4.Text
  satirBitis = TextBox5.Text
  calismaSayfasi = TextBox6.Text
  
  'Başlangıç ve bitişi belli satırlarımızda döngü hazırlıyoruz.
  For i = satirBaslangic To satirBitis
  
      'satırlarımız arasında dönerken hangi hücrede olduğumuzu bulmak için hucre değişkeni tanımlıyoruz.
      Dim hucre As String
      'hucre değişkenimize Sutun değerini alarak bulunduğumuz satırın numarası ile birşleştiriyoruz.
      'Örneğin : A6
      hucre = sutunDegeri + CStr(i)
      
      'hucreDegeri değişkenimize bulunduğumuz hücrenin değerini alıyoruz.
      hucreDegeri = Worksheets.Item(calismaSayfasi).Range(hucre, hucre)
  
      'Eğer hücre değeri 0 ise işlem yapmasını istemiyoruz.
      If hucreDegeri <> 0 Then
      
         'TL -> $
          'OptionButton1 seçiliyse Bu işlemleri yap
          If OptionButton1 Then
              'kur değişkenimize dolar kurunu alıyoruz.
              kur = dolarKuru
              
              'bulunduğumuz hücreye döviz değerini buldurarak yazdırıyoruz.
              Worksheets.Item(calismaSayfasi).Range(hucre, hucre).Value = hucreDegeri / kur
              
              'hücremizin çevirdiğimiz Dövizdeki sembelü ile gözükmesini sağlıyoruz.
              Worksheets.Item(calismaSayfasi).Range(hucre, hucre).NumberFormat = "#,##0.00 [$$-C0C]"
              
          End If
  
          '$ -> TL
          If OptionButton2 Then
              kur = dolarKuru
              Worksheets.Item(calismaSayfasi).Range(hucre, hucre).Value = hucreDegeri * kur
              Worksheets.Item(calismaSayfasi).Range(hucre, hucre).NumberFormat = "#,##0.00_ TL"
              
          End If
  
          'TL -> €
          If OptionButton3 Then
              kur = euroKuru
              Worksheets.Item(calismaSayfasi).Range(hucre, hucre).Value = hucreDegeri / kur
              Worksheets.Item(calismaSayfasi).Range(hucre, hucre).NumberFormat = "#,##0.00_ €"
              
          End If
  
          '€ -> TL
          If OptionButton4 Then
              kur = euroKuru
              Worksheets.Item(calismaSayfasi).Range(hucre, hucre).Value = hucreDegeri * kur
              Worksheets.Item(calismaSayfasi).Range(hucre, hucre).NumberFormat = "#,##0.00_ TL"
              
        End If
     
  End If
  
  Next i
  'İşlem bitince çalıştığımız sayfayı aktif hale getir.
  Worksheets.Item(calismaSayfasi).Activate
  
  End Sub
  

• Son olarak işlemimizi tes edelim

  Hazırladığımız dosyada çalışma sayfasında sağ tuşu masalım. "Move or Copy" yı seçelim.

  

  üsteki seçenekten işlem yapmak istediğimiz dosyamızı seçelim. Move to End ardından Create a copy' yi işaretleyelim. Daha sonra ok tuşuna basalım.

  

  dosyamız işlem yapmak istediğimiz dosyamızın sonuna eklenmiş oldu. Aşağıdaki resimde Sheet1 değerler bulunan tablomuz, Sayfa1 cevirici dosyamız'dır.

  

  Şimdi bize gereklli olan verileri sheet1 dosyamızdan temin edeceğiz. Bunlar neler,

  • sutun değeri,
  • satır başlangıç değeri,
  • satır bitiş değeri,
  • çalışma sayfası.

  sütun değeri :B
  satır başlangıç değeri :2
  satır bitiş değeri : 26
  çalışma sayfası : Sheet1
  

  

  Bu verileri cevirim (sayfa1) dosyamızda yerlerine yerleştirelim, kur değerlerini yazalım, çevireceğimiz kur tipini seçip çevir butonuna basalım.

  

  Gördüğünüz gibi TL olan listemiz bir tuş yarımıyla $' a çevriliverdi.Diğer kolonlarıda sadece sutun değerini değiştirerek çevirebilirsiniz.

  

iki veritabanı arasında olmayan sp(stored procedure), FN(function), V(view), U(Table) bulunması

Böyle bir yazı yazmamın amacı;
    2009 yılına ait bir veritabanı kullanıyorsunuz ve 2010 yılında bu veritananını yeniden oluşturyorsunuz. Ama kullandığınız program (ERP, MRP, vs.) bunları otomatik olarak yapıyor. Fakat siz 2009 yılında bir takım P(stored procedure), FN (function), V(view), U(Table) oluşturdunuz ve bunları yeni açılan veri tabanında olup olmadığının kontrolünü yapıp yeni veritabanına aktarmak istiyorsunuz.

Bu makalemde sizlere bunu anlatacağım. şimdiyekadar muhtemelen kullanmadığınız değişik bir yöntemle yapacağız. EXCEL kullanarak hem iki veritabanındaki farklılıkları bulacağız hemde bu farklılıkları otomatik oluşturacağız.

Sırasıyla Yapmamız gerekenler;

• Öncelikle iki veri tanabı arasında olmayan stored procedure yada function' ları bulan ve table donduren bir function yazacağız.
• Bunları excel'de listeliyeceğiz
• Bu stored procedure, function'ların sahip olduğu komut satırlarını bulan bir kod yazağız.
• Bu kodları EXCEL'de ilgili storedProcedure'un karşılığı olarak getittireceğiz.
• Saha sonra bir komut satırıyla bunları olmayan veri tabanımızda oluşturacağız.

• SQL programımıza girerek Fonksiyonumuzu hazırlayalım
  
  

          
  --ilk veritabanımızdaki tüm kayıtlar getireleceğinden
  --ikinci veritabanında karşılığı olmayan stored procedure'ler
  --null değer alacaktır. LEFT OUTER JOIN ile iki veritabanını
  --ilişkilendiriyoruz.
          
  create function SH_iki_veritabani_arasinda_olmayan_veriler_TABLE (@verininCinsi nvarchar (5))
      returns table as
      return
          (
              select  
                  ilkVeriTabani.name as ilkVeriTabani_NAME 
                  ,ilkVeriTabani.id as ilkVeriTabani_ID
                  ,ikinciVeriTabani.NAME as ikinciVeriTabani_NAME
                  ,ikinciVeriTabani.id  as ikinciVeriTabani_ID from byhasanusta.dbo.Sysobjects  as ilkVeriTabani
                  left OUTER join byhasanustayedek.dbo.Sysobjects  as ikinciVeriTabani  
                  ON ilkVeriTabani.name = ikinciVeriTabani.name 
                  where ilkVeriTabani.Xtype = @verininCinsi
          )
  
  

  Burada Sysobjects tablosundan bilgi aldık. Daha önceki dersimizde bu tablonun içeriğini incelemiştik.
  
  
• Şimdi gelelim Excel'e. Bir excel dosyası açalım.

  Burada dikkat ederseniz üst tarafta bir componentimiz mevcut. controls adı altında. Eğer bu sizde ekli değilse, menü çubuğunda sağ tuşa basarak ekleyebilirsiniz.

  Menü Çubuğunda sağ tuşa basın -> Customize Quick Access Tollbar' ı seçin. Aşağıdaki ekran gelecek ve buradan Controls tool'unu bulup Add' itıklayın. Ok 'e basarak ekranı kapatın.

  

  Controls -> Insert -> ActiveX Controls' un altından bir adet button seçelim. Ve Excel'e ekleyelim. Aşağıdaki gibi bir görüntümüz olacak.

  

  Şimdi Command Button1' i tıklayarak kod editörümüzde geçelim. Kodlamaya geçmeden önce yapmamız gereken EXCEL' e kütüphaneden bir kitaplık eklememiz.

  Tools -> References tıklayalım. Burada bize kütüphane listesi açılacak.

  Burada microsoft ActiveX Data Object 2.1 Library 'i işaretliyelim. Ve OK butonuna basalım.

  

  Aşağıdaki gibi bir Sub oluşturalım. Ve butonumuzun Click olayına veritabanindaOlmayanSP yazalım.

  Public Sub veritabanindaOlmayanSP(veriTabani As String)
  
      'Bağlantı Nesnesi yaratıyoruz
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
  
      'SQL Bağlantısı için string tanımlıyoruz
      Dim connstr As String
  
      'SQL Server OLE DB Provider' kullanıyoruz
      connstr = "PROVIDER=SQLOLEDB;"
  
      'SHASANUSTA Server'a bağlanıyoruz. Veritabanı olaraj firma değişkeni atadık.
      connstr = connstr & "DATA SOURCE=SHASANUSTA;INITIAL CATALOG=" & veriTabani
  
      'Bağlantıyı oluşturuyoruz.
      connstr = connstr & "Integrated Security=SSPI;"
  
      'Bağlantıyı açıyoruz.
      conn.Open connstr
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim cmd As New ADODB.Command
      cmd.CommandType = adCmdText
      cmd.ActiveConnection = conn
      
      'SQL cümlemizi yazıyoruz
      cmd.CommandText = "select * from SH_iki_veritabani_arasinda_olmayan_veriler_TABLE('P') where ikinciVeriTabani_NAME is null"
      
      'dönen satayı bir record sette tutuyoruz
      Set rs = cmd.Execute
      
      'bağlantıyı boşaltıyoruz.
      Set conn = Nothing
      
      'Record Set'in yapısı excel gibi olduğundan
      'içerisindeki bilgiyi direkt istediğimiz
      'bir hücreye yapıştırabiliyoruz
      
      Sheet1.Cells(2, 1).CopyFromRecordset rs
       
      
  End Sub
  
  Private Sub CommandButton1_Click()
      veritabanindaOlmayanSP ("byhasanusta;")
  End Sub
  

  
  

  çalıştırıp sonuca baktığımızda. Ilk veritabanımızda olupta ikinci veritabanında olmayan stored Procedure'ler listelenmiş oldu.

• Şimdi Tekrar SQL programımıza gelelim ve aşağıdaki stored procedure yazalım ve oluşturalım.

  create procedure SH_sp_F_komut_satirlari_getir  
      @sp_veya_F_ID nvarchar(100)  
      AS
      select text from SysComments where id=@sp_veya_F_ID
  

  
  

• Şimdi texrar Excel dosyamıza gelelim ve bir Command Button oluşturalım. Ayrıca aşağıdaki Sub'ı yazalım.

  Public Sub veritabanindaOlmayanSPKomutsatiriGetir(veriTabani As String)
  
      'Bağlantı Nesnesi yaratıyoruz
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
  
      'SQL Bağlantısı için string tanımlıyoruz
      Dim connstr As String
  
      'SQL Server OLE DB Provider' kullanıyoruz
      connstr = "PROVIDER=SQLOLEDB;"
  
      'SHASANUSTA Server'a bağlanıyoruz. Veritabanı olaraj firma değişkeni atadık.
      connstr = connstr & "DATA SOURCE=SHASANUSTA;INITIAL CATALOG=" & veriTabani
  
      'Bağlantıyı oluşturyoruz.
      connstr = connstr & "Integrated Security=SSPI;"
  
      'Bağlantıyı açıyoruz.
      conn.Open connstr
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim cmd As New ADODB.Command
      'Bu sefer komut tipimizi stored procedure olarak değiştiriyoruz
      cmd.CommandType = adCmdStoredProc
      
      cmd.ActiveConnection = conn
      
      'SQL cümlemizi yazıyoruz
      cmd.CommandText = "SH_sp_F_komut_satirlari_getir"
      
      'Satırlar arasında döneceğimiz için
      'Bir değişken tanımlıyoruz
      Dim i As Integer
      
      'storedProcedure atamak için değişkenimiz tanımlıyoruz.
      'SQL' de tanımladığımız sp miz bizden parametre isteyecek
      'Bu parametreyide Excel'deki satırlardan temin edeceğiz.
      Dim spText As String
        
          For i = 2 To 7
          
                  spText = Sheet1.Cells(i, 2).Value
                  
                  cmd.Parameters.Append cmd.CreateParameter("@sp_veya_F_ID", adVarChar, adParamInput, 100, spText)
              
                  'dönen satayı bir record sette tutuyoruz
                  Set rs = cmd.Execute
                  
                  'İçerisindeki bilgi teksatır döneceğinde ilgili satırın
                  'karşısına sql'deki kod bloğumuzu yapıştırıyoruz.
                  Sheet1.Cells(i, 5).Value = rs.GetString()
                  
                  Set rs = Nothing
                  cmd.Parameters.Delete ("@sp_veya_F_ID")
                                    
          Next i
          
      'İşimiz bitince bağlantıyı boşaltıyoruz.
      Set conn = Nothing
       
  End Sub
  
  Private Sub CommandButton2_Click()
      veritabanindaOlmayanSPKomutsatiriGetir "byhasanusta;"
  End Sub
  
  

  ikinci butonumuza tıklayınca ilgili stored Procedure ait komut satırları sayfa1' de 5. kolona gelecektir. Bundan sonra geriye yapılacak tek bir işlem kalıyor bunları ikinci veritabanımızda oluşturmak.

  excel görüntümüz aşağıdaki gibi olacaktır;

  

  "E" sütununda ilgili stored Procedure ait komut satırları yer almaktadır.

• Gelelim bunları ikinci veritabanımızda oluşturmaya.

  Excel dosyamızda üçüncü bir Command Button oluşturalım ve aşağıdaki kodlamayı yapalım.

  Public Sub komut_satiri_calistir(firma As String)
      'Bağlantı Nesnesi yaratıyoruz
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
  
      'SQL Bağlantısı için string tanımlıyoruz
      Dim connstr As String
  
      'SQL Server OLE DB Provider' kullanıyoruz
      connstr = "PROVIDER=SQLOLEDB;"
  
      'SHASANUSTA Server'a bağlanıyoruz. Veritabanı olarak firma değişkeni atadık.
      connstr = connstr & "DATA SOURCE=SHASANUSTA;INITIAL CATALOG=" & veriTabani
  
      'Bağlantıyı oluşturyoruz.
      connstr = connstr & "Integrated Security=SSPI;"
  
      'Bağlantıyı açıyoruz.
      conn.Open connstr
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim cmd As New ADODB.Command
      'komut tipimizi tekrat text olarak değiştiriyoruz
      cmd.CommandType = adCmdText
          
      cmd.ActiveConnection = conn
      
      'Satırlar arasında döneceğimiz için
      'Bir değişken tanımlıyoruz
      Dim i As Integer
      
         For i = 2 To 7
          
                  'SQL cümlemizi yazıyoruz. Bu sefer sql cümlemiz
                  'E kolonundaki cümlelerimiz olacak.
                  cmd.CommandText = Sheet1.Cells(i, 5).Value
                 
                  Set rs = cmd.Execute
                  
                  'Bilgi amaçlı 3. kolona "ok" yazdırıyorum.
                  Sheet1.Cells(i, 3).Value = "ok"
                  
                  Set rs = Nothing
                  
                
          Next i
          
      'İşimiz bitince bağlantıyı boşaltıyoruz.
      Set conn = Nothing
  
  End Sub
  
  Private Sub CommandButton3_Click()
      'Dikkat!!! stored procedur' leri oluşturacağım
      'veri tabanını belirtiyorum.
      komut_satiri_calistir "byhasanustayedek;"
  End Sub
  
  

  İşimiz bittiğinde görüntümüz aşağıdaki gibi olacaktır. SQL' de stored procedurlerinizi kontrol edebilirsiniz.

  

CommandButton1: İkinci veritabanında olmayan stored procedurleri getirdi.

CommandButton2: Bunlara ait komut satırlarını getirdi.

CommandButton3: İkinci veritabanında olmayan stored procedurleri oluşturdu.

Yapacaklarımızın hepsi bukadar. CommandButton1' de "P" parametresi gönderdik "P" parametresi çekeceğimiz verinin procedurlerden oluşacağını gösterir. Eğer function olsaydı "fn" yazardık. Bu şekilde istediğimiz verinin kontrolünü yaptırabiliriz.

SysComments:Veri tabanında bulunan bütün sp, function, view, table' ların listesi alır ve barındırdıkları sorguyu gösterir.

SysObjects:Bu komut ise veri tabanımızda bulunan sp, function, view ve table' ların isimlerini ve detay bilgilerini döndürür.

INFORMATION_SCHEMA.SCHEMATA: Veritabanları tutan tablo
INFORMATION_SCHEMA.TABLES: Tabloları tutan tablo
INFORMATION_SCHEMA.COLUMNS: Sütunları tutan tablo
INFORMATION_SCHEMA.ROUTINES:Tüm sp ve function' ları listeler.

Master Page sayfalarımızda hazırladığımız css dosyasını kullanmak en doğal hakkımızdır. Peki bunu nasıl yapacağız yani bir master sayfamız var ve burada css'teki biçimlendirmeleri kullanmak istiyoruz. Bu işlemi gerçekleştirmek için;

• master sayfamızı açalım ve source kısmına gelelim.
• Head tagları arasına aşağıdaki kodlamayı yapalım.

artık .css dosyamızı rahatlıkla dökümanımızda kullanabiliriz.

Oluşturduğumuz Child sayfamızda yani .aspx sayfamızda "Theme=Theme1" eklemeyi unutmayalım.

<%@ Page Language="C#" MasterPageFile="~/MasterPage.master" AutoEventWireup="true" CodeFile="index.aspx.cs" Inherits="index" Title="byhasanusta.com"  Theme="Theme1"

Bunun için IIS server'ın kullanıcısının ayarlarını bulunduğumuz ülkenin ayarları yapmamız gerekir. Peki bu nasıl olacak derseniz. İşte size cevap.

Web sunucusunun Server'ında register'a gireriz.

Başlat -> Çalıştır -> regedit

yazarak register editörüne gireriz.

Kendi kullanıcımızın değiştireceksek